Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

Lbl S
3
0N
0J
ClrText
" "
" "
" "
" "
" "
" "
" "
Locate 11,7,"a"
For 1I To 8
Locate I,7," sN"
Locate 20?I,7,"Rf "
GetKey=31Goto A
Next
For 1I To 3
For 1O To 30
Next
" "
Next
For 1I To 100
Next
Locate 9,4,"?????"
Locate 9,4,"====="
Locate 4,4,"An Prod uction"
For 1I To 4
Locate 7,I,"A"
Locate 8,8?I,"T"
GetKey=31Goto A
I1Locate 7,I?1," "
I1Locate 8,9?I," "
Next
For 1I To 200
Next
For 4I To 11
Locate I,4," "
Locate 23?I,4," "
Next
For 1A To 3
For 21I To 1 Step ?2
A=1Locate I,5," Levels "
A=2Locate I,6," And reas Tindlund "
A=3Locate I,6," Gjert Vallevik "
Next
For 1X To 30
Next
" "
Next
For 1X To 80
Next
" "
" "
" "
" "
For 1A To 6
For 19I To 1 Step ?6
A=1Locate I,7," For new games and "
A=2Locate I,7," updates visit "
A=3Locate I,7," the AT Casio page "
A=4Locate I,7," "
A=5Locate I,7,"http //come.to/casio/ "
GetKey=31Goto A
A=6Locate I,7," [PRESS [EXE] "
Next
For 1X To 30
Next
A6" "
A=5Orange " "
Next
Do
LpWhile GetKey31
ClrText
" "
" "
" "
" "
" "
" "
" "
Lbl A
If O=1
Then 0O
Cls
Green Text 20,30,"Level Completed"
Green Text 20,54,N
M?J?1000xNJ
0M
Text 30,66,J
Text 30,40,"Score:"
Text 1,1," "
For 1I To 300
Next
IfEnd
N?1N
Cls
ViewWindow 1,127,0,1,63,0
F-Line 1,57,127,57
F-Line 1,1,1,63
F-Line 1,1,127,1
F-Line 127,1,127,63
Green Text 1,3,"SNARF .9Rb LIVES: LEVEL:"
Orange Text 1,115,N
Orange Text 1,70,
0M
If N=1
Then F-Line 50,40,48,40
F-Line 48,40,48,36
F-Line 48,36,54,36
F-Line 54,36,54,40
F-Line 54,40,53,40
F-Line 53,40,53,46
F-Line 53,46,48,50
F-Line 50,40,50,44
F-Line 48,50,42,50
F-Line 42,50,42,38
F-Line 42,38,38,38
F-Line 38,38,38,28
F-Line 44,28,20,28
F-Line 20,28,20,20
PlotOn 34,27
PlotOn 24,25
F-Line 20,20,28,20
F-Line 28,20,34,14
F-Line 34,14,60,14
F-Line 60,14,60,20
F-Line 60,20,76,20
F-Line 76,20,76,40
F-Line 76,40,62,40
PlotOn 62,39
F-Line 48,40,48,24
F-Line 48,34,42,34
F-Line 24,24,72,24
F-Line 72,24,72,36
F-Line 72,36,54,36
F-Line 32,24,40,18
F-Line 40,18,52,18
Orange F-Line 62,38,54,38
Orange F-Line 62,36,54,36
Green PlotOn 55,37
PlotOn 54,37
Text 32,53,"A.T."
55S
37T
8D
51V
37P
IfEnd
If N=2
Then 2D
56P
64V
F-Line 62,57,63,50
F-Line 66,57,65,42
F-Line 65,42,58,47
F-Line 58,47,55,53
F-Line 50,57,49,53
F-Line 49,53,47,23
F-Line 47,23,57,28
F-Line 55,53,52,31
F-Line 52,31,64,33
F-Line 64,33,63,22
F-Line 63,22,42,15
F-Line 42,15,38,42
F-Line 47,45,30,48
F-Line 30,48,37,9
F-Line 37,9,68,7
F-Line 68,7,68,20
F-Line 43,15,66,20
Orange F-Line 68,20,68,25
Orange F-Line 66,20,66,25
Green PlotOn 67,25
67S
25T
IfEnd
If N=3
Then 6D
38P
10V
46S
4T
Text 35,2,"~"
Text 10,50,"BY A.T."
F-Line 1,41,85,41
F-Line 1,35,40,35
F-Line 85,41,85,30
Text 26,40,"SHORTCUT"
F-Line 85,30,8,32
F-Line 8,32,5,7
F-Line 9,1,12,25
F-Line 18,31,15,5
F-Line 15,5,40,5
PlotOn 39,2
Orange F-Line 39,5,46,5
Orange F-Line 39,3,46,3
Green PlotOn 46,4
IfEnd
If N=4
Then F-Line 43,31,38,31
F-Line 38,31,38,42
F-Line 38,42,34,42
F-Line 34,42,34,28
F-Line 34,28,46,28
F-Line 46,28,46,39
F-Line 46,39,56,44
PlotOn 44,36
PlotOn 44,38
PlotOn 44,40
PlotOn 45,38
F-Line 38,40,48,50
F-Line 48,50,24,50
F-Line 24,50,24,44
F-Line 24,44,20,44
F-Line 52,48,54,52
F-Line 54,52,48,54
F-Line 48,54,24,54
F-Line 24,54,16,48
F-Line 16,48,16,32
F-Line 16,32,28,32
F-Line 28,32,28,16
F-Line 28,16,36,16
F-Line 36,16,36,6
F-Line 36,6,40,6
Orange F-Line 40,6,40,2
F-Line 42,6,42,16
F-Line 42,16,50,16
F-Line 50,16,50,26
F-Line 50,26,62,32
F-Line 62,32,56,38
F-Line 56,38,74,38
F-Line 74,38,74,48
F-Line 74,48,52,48
F-Line 56,44,66,45
F-Line 16,40,28,40
F-Line 32,36,20,36
Orange F-Line 42,2,42,6
F-Line 24,44,32,44
F-Line 32,44,32,20
F-Line 32,20,46,20
F-Line 46,20,46,28
F-Line 46,28,52,34
F-Line 52,34,46,38
PlotOn 50,40
PlotOn 52,40
PlotOn 54,40
PlotOn 58,40
PlotOn 62,40
PlotOn 50,38
PlotOn 52,38
PlotOn 62,42
PlotOn 64,42
PlotOn 68,42
PlotOn 70,42
PlotOn 63,41
PlotOn 69,43
PlotOn 71,43
F-Line 36,50,36,52
F-Line 26,52,26,54
F-Line 18,50,21,47
40P
36V
2D
41S
2T
Green PlotOn 41,2
IfEnd
If N=5
Then Text 24,20,"XXXX"
F-Line 20,1,20,48
F-Line 20,48,102,48
F-Line 102,48,102,38
F-Line 102,38,86,38
F-Line 86,38,86,1
F-Line 76,1,76,38
F-Line 76,38,60,38
F-Line 60,38,60,1
F-Line 45,1,45,24
F-Line 45,24,35,24
F-Line 35,24,35,1
F-Line 35,38,45,38
F-Line 45,38,45,30
F-Line 45,30,35,30
F-Line 35,30,35,38
F-Line 65,1,65,6
F-Line 65,6,71,6
F-Line 71,6,71,1
F-Line 91,1,91,6
F-Line 91,6,97,6
F-Line 97,6,97,1
F-Line 26,1,26,10
F-Line 20,14,26,14
F-Line 26,14,30,12
F-Line 30,4,30,20
F-Line 30,20,32,20
F-Line 32,14,35,14
F-Line 35,24,26,24
F-Line 26,24,26,18
F-Line 26,18,24,18
F-Line 24,18,24,24
F-Line 20,28,28,28
F-Line 28,28,28,30
F-Line 30,24,30,30
F-Line 30,30,35,30
F-Line 35,38,35,42
F-Line 35,44,35,48
F-Line 40,48,40,41
F-Line 44,38,44,44
F-Line 48,48,48,38
F-Line 48,38,54,38
F-Line 54,38,54,30
F-Line 54,30,49,30
F-Line 49,30,49,18
F-Line 49,18,58,18
F-Line 58,18,58,8
F-Line 58,8,48,8
F-Line 45,35,50,35
F-Line 49,27,35,27
F-Line 60,22,52,22
F-Line 54,30,58,26
F-Line 60,38,60,42
F-Line 60,44,60,48
F-Line 66,48,69,40
F-Line 76,38,78,38
F-Line 78,38,74,44
F-Line 78,40,88,40
F-Line 88,40,88,44
F-Line 88,44,98,44
F-Line 81,32,81,14
F-Line 81,14,79,10
F-Line 81,14,83,10
F-Line 78,28,84,24
F-Line 76,22,79,18
F-Line 86,20,83,20
F-Line 76,4,80,4
F-Line 82,4,86,4
Orange F-Line 80,4,80,1
Orange F-Line 82,4,82,1
Green PlotOn 81,1
81S
1T
8D
23V
2P
F-Line 45,12,54,12
IfEnd
If N=6
Then 10P
118Q
20R
F-Line P,P,Q,P
F-Line Q,P,Q,52
F-Line Q,52,P,52
F-Line P,52,P,P
F-Line P,R,50,R
F-Line 50,R,50,30
F-Line 55,P,55,33
F-Line 55,33,46,33
F-Line 46,33,46,27
F-Line 46,33,30,40
F-Line 45,R,30,36
F-Line 30,40,30,46
F-Line 30,46,16,46
F-Line 16,46,16,23
F-Line 30,36,19,32
PlotOn 24,42
PlotOn 23,38
PlotOn 21,39
PlotOn R,36
PlotOn 19,43
F-Line 16,23,31,27
F-Line 13,28,16,28
F-Line P,32,13,32
F-Line 13,38,14,46
F-Line 19,49,19,52
F-Line 23,46,23,48
F-Line 45,52,61,34
F-Line 61,34,61,13
PlotOn 59,15
PlotOn 58,21
PlotOn 59,25
PlotOn 57,31
F-Line 52,38,35,47
F-Line 40,38,44,47
F-Line 66,P,66,30
F-Line 61,34,71,34
F-Line 71,34,71,13
F-Line 76,P,76,35
F-Line 76,35,54,49
F-Line 62,37,64,39
F-Line 54,49,115,49
PlotOn 94,50
PlotOn 64,51
112R
F-Line 115,49,R,40
F-Line R,40,R,16
F-Line 108,P,108,46
F-Line R,32,115,32
F-Line 115,29,118,29
F-Line 115,26,R,26
PlotOn 111,24
PlotOn 110,32
PlotOn 111,45
F-Line 103,49,80,13
F-Line 98,40,105,35
F-Line 108,30,96,30
F-Line 87,24,105,13
F-Line 89,27,105,27
F-Line 108,21,99,21
F-Line 93,21,96,24
F-Line 90,P,90,17
F-Line 80,13,78,47
F-Line 78,42,65,47
F-Line 78,47,89,37
Orange F-Line 82,30,82,17
Orange F-Line 84,18,84,30
15P
15V
83S
20T
6D
IfEnd
If N=7
Then F-Line 18,56,22,56
F-Line 22,56,22,46
F-Line 22,52,30,52
F-Line 30,52,38,44
F-Line 38,44,38,36
F-Line 18,56,18,42
F-Line 18,42,25,42
F-Line 25,49,25,32
F-Line 25,49,34,40
F-Line 29,40,29,36
F-Line 29,36,40,36
F-Line 40,36,46,44
F-Line 46,44,54,50
F-Line 25,32,40,32
F-Line 40,32,46,24
F-Line 46,24,54,24
F-Line 54,24,54,26
F-Line 54,26,60,26
F-Line 56,28,58,28
F-Line 60,27,60,24
F-Line 60,24,68,24
F-Line 68,24,76,32
F-Line 76,32,76,34
F-Line 76,34,78,32
F-Line 50,42,44,34
F-Line 44,34,50,26
F-Line 50,26,50,30
F-Line 50,30,62,30
F-Line 62,30,62,28
F-Line 62,28,66,28
F-Line 66,28,72,34
F-Line 72,34,44,34
F-Line 54,50,54,38
F-Line 54,38,50,38
F-Line 54,44,56,44
F-Line 54,49,62,49
F-Line 62,49,62,38
F-Line 62,38,78,38
F-Line 58,34,58,46
F-Line 62,34,62,35
F-Line 66,38,66,36
F-Line 74,28,82,36
F-Line 82,36,82,42
F-Line 85,42,76,42
F-Line 76,42,76,44
F-Line 76,44,68,44
F-Line 62,44,66,48
F-Line 66,48,78,48
F-Line 78,48,78,46
F-Line 78,46,88,46
F-Line 88,46,88,38
F-Line 88,38,85,38
F-Line 88,42,96,42
F-Line 96,42,96,38
F-Line 96,38,102,32
F-Line 102,32,102,24
F-Line 102,24,98,24
F-Line 96,26,98,26
F-Line 98,26,98,6
F-Line 98,6,79,6
F-Line 79,6,79,14
F-Line 79,14,76,14
F-Line 76,14,76,18
F-Line 76,18,64,18
F-Line 95,11,83,11
F-Line 83,11,83,17
F-Line 83,17,79,17
F-Line 79,17,79,22
F-Line 79,22,64,22
F-Line 74,28,74,22
F-Line 78,26,82,30
F-Line 82,30,82,20
F-Line 82,20,86,20
F-Line 86,21,86,14
F-Line 86,14,98,14
F-Line 80,34,88,34
F-Line 92,38,86,32
F-Line 86,32,86,24
F-Line 86,24,86,90
F-Line 92,26,90,26
F-Line 90,26,90,18
F-Line 90,18,92,18
F-Line 93,22,95,22
F-Line 96,18,98,18
F-Line 90,30,94,34
F-Line 94,34,98,30
F-Line 86,24,90,24
Orange F-Line 64,21,54,21
Orange F-Line 64,19,54,19
Green PlotOn 54,20
20T
54S
2D
55P
20V
F-Line 68,44,68,42
IfEnd
If N=8
Then ClrText
" "
" "
" "
" "
" "
" "
" "
For 1A To 13
For 21I To 1 Step ?1
A=1Locate I,7," CongratulationS "
A=2Locate I,7," You made it "
A=3Locate I,7," You achieved "
A=4 And I16Locate I?5,7,J?5000
A=4 And I11Locate I?10,7," "
A=5 And I10Locate I?10,7," Points "
A=6Locate I,2,"[ Please visit ]"
A=7Locate I,3,"[ The AT Casio Page ]"
A=8Locate I,6,"http //come.to/casio/"
A=9Locate I,7,"<???????????????????>"
A=10Locate I,2," ????Write???? "
A=11Locate I,3," ???The URL??? "
A=12Locate I,4," ????Down????? "
A=13Locate I,5," ????N?O?W???? "
Next
A4For 1I To 10
Next
A3" "
If A=5
Then For 1I To 200
Next
" "
" "
" "
" "
" "
" "
" "
IfEnd
Next
IfEnd
For 1I To 200
Next
While 1
PxlTest 64?P,V
Ans=1Goto E
Green PlotOn V,P
Isz M
GetKeyI
If I0
Then I=27 And D46D
I=37 And D82D
I=38 And D64D
I=28 And D28D
If I=78
Then Do
LpWhile GetKey77
IfEnd
IfEnd
D=6V?1V
D=2P?1P
D=4V?1V
D=8P?1P
WhileEnd
Lbl E
V=S And P=T1O
O=1Goto A
?1
N?1N
J?MJ
0M
>0Goto A
Cls
Orange F-Line 38,45,38,20
Orange F-Line 38,45,89,45
Orange F-Line 89,45,89,20
Orange F-Line 89,20,38,20
Green Text 26,44,"Game Over"
Text 33,54,J
0O
Text 1,1," "
Do
LpWhile GetKey31